home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER5 / TUG / TUG.INC < prev    next >
Text File  |  1994-01-01  |  654b  |  26 lines
  1. define d1  ((a - fx1) ^ 2 + (b - fy1) ^ 2 + (c - fz1) ^ 2) ^ 0.5
  2. define d2  ((a - fx2) ^ 2 + (b - fy2) ^ 2 + (c - fz2) ^ 2) ^ 0.5
  3. define d3  ((a - fx3) ^ 2 + (b - fy3) ^ 2 + (c - fz3) ^ 2) ^ 0.5
  4. define d4  ((a - fx4) ^ 2 + (b - fy4) ^ 2 + (c - fz4) ^ 2) ^ 0.5
  5.  
  6. define drx1  a - fx1
  7. define dry1  b - fy1
  8. define drz1  c - fz1
  9.  
  10. define drx2  a - fx2
  11. define dry2  b - fy2
  12. define drz2  c - fz2
  13.  
  14. define drx3  a - fx3
  15. define dry3  b - fy3
  16. define drz3  c - fz3
  17.  
  18. define drx4  a - fx4
  19. define dry4  b - fy4
  20. define drz4  c - fz4
  21.  
  22. define f1  f / (1 + d1 ^ p)
  23. define f2  f / (1 + d2 ^ p)
  24. define f3  f / (1 + d3 ^ p)
  25. define f4  f / (1 + d4 ^ p)
  26.